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1. SCOPE 


1.1 GENERAL 

This document is the "as-built" design specification of the 
CAMS/CAS Interface Tape Report Generation Program. 


2 . APPLICABLE DOCUMENTS 


TIRP 76-0053 

Specification for the CAMS/CAS Interface Tape Eeport 
Generation Program - LEC-9151 

CAMS/CAS Inter lace Control Tape format specification in 
Earth Resources Data Format Control Book (PHO-TR543, 
Rev. A, Change 2) 




3 . SYSTEM DESCRIPTION 


3.1 HARDWARE DESCRIPTION 
N/A 

3.2. SOPTWARE DESCRIPTION 

.Th<i ' purpose of this program is to produce CAMS reports from 
dkta.'pp the CANS/CAS interface tape. 

. 3 ’. 2.1 SOFTWARE COMPONENT NO. 1 (CAMRPT) 

The main program reads control cards, locates segment data 
on the input tape and calls siibroutines to generate requested 
reports. 


3 . 2 . 1 . 1 Linkages 

CAMRPT calls subroutines a\MPER, CAPRNT, PLDPER, REDHED, and 
STDATA. 

3 • 2 . 1 . 2 Interfaces 
N/A 


3. 2. 1.3 Inputs 

CAMRPT control cards are: SEGMENT XXXX, RECORD ID XXXXXX 

XXXXXX, PRINT TAPE, ALL SEGMIilNTS, END. CAM/CAS interface 
tape records are inputs to CAMRPT. See reference 3 in 
section 2, for record formats. 

3. 2. 1.4 Outputs 

An error message is output indicating a bad data card. If 
a requested segment is not on the input tape, the program 
writes a message to that effect. 


3. 2. 1.5 Stcraie Requirements 
Total space allocated is 2094 bytes. 

3.2. 1.6 Description 

Upon reading a control card CAMRPT tests the first non-blank 
character for one of the following: S, R, P, A, or E. If 
the card is blank or if the character is not one of the above, 
the program prints an error message on the line printer and 
stops. The action taken for each control card is as follows: 

S - The program obtains the segment number from the 
input card. Records from the CAMS/CAS interface 
tape are read until a recognition segment record is 
found whose segment number matches the card input 
nuiTiber, or, if not found, an error message is printed 
out. After the segment is located, CAMPER is called 
to generate the classification summary. STDATA is 
called to output the statistics report, and then 
PLDPER to output the accuracy report. 

R - The action taken for this control card is the same 
as in the S case above, except that the record ID 
number is used in place of the segment number. 

P - Beginning with the first record, the program reads 
the input tape, calls CAPRNT to print the contents 
of the record, until an end of file indicating the 
end of data is reached. 

A -• For each segment on the input tape, the program calls 
in succession CAMPER, STDATA and FLDPER. 

E - The program rewinds the input tape and stops. 




With the: exception of the END option, the progr 2 un xeturns to 
read another control card after completing an option. 


3. 2. 1.7 Flowcharts 
N/A 


3 . 2 . 1 . 8 List ing 
See Appendix B. 


- 5 ^ 


3.2.2 .S0FW-?AIIE COMPONENT NO. 2 (CAMPER) 

This program processes classification results contained in 
recognition segment records, computes category and class 
percentages, and outputs a classification summary report. 

• f 

^,2; 2.1’ Linkages 

CA>iPER is called by CAMRPT and calls subroutines CAMHDG. 
CPIpd, MV, aad REDHED. 

3 . 2.. 2 . 2 Interfaces 

n/a 

3 . 2 . 2 . 3 Inputs 

Recognition segment reemds, containing subclass a priori 
and threshold values, and subclass related classification 
results. 

3 . 2 . 2 . 4 Outputs 

CAMS Interface Report. See Appendix A. 

3 . 2 . 2 . 5 Storage Requirements 
Total space allocated is 1471 bytes. 

3.2. 2.6 Description 

CAMPER is called with the first recognition segment record 
for the segment to be processed residing in array IBUF. 
CAMPER first calls CAMHDG to print out the report heading, 
the segment number, record ID, and acquisition dates. Title 
and column headings for the classification section of the 
report are written out by CAMPER. Processing of classifica- 
tion results begins by setting the location in array IBUF of 



ORIGINAL PAGE IS 
OE POOR QUALITY 


the first subfioXd containing subclass related results. 
Subfield contents r.re accessed by calling CPTi'O. CPIPO 
returns the class portion of the subclass name and the 
counts PI and PO of pixels classified into, and thresholded 
out of the subclass. If the first character of the class 
name is X, PI is added to the X category pixel count. If 
the category is W, for wheat, then the count for the first 
wheat class is set to PI and the wheat class name is saved 
in CLIST. 

In processing for the second, and subsequent subclasses, 
the program calls CPIPO to get tlio next class name, checks 
to see if it is v/heat, and, if so, compare-s it to the last 
class name in CLIST. If it ir jiot the same, the now name 
is saved in CbiS'f and the class index is incremented by 1. 
This causes wheat class pixel count PI to bo tallied in the 
next results array location, CMPEE output is in terms of 
percentages calculated according to equations in the require** 
ments document LEC~9151. 

3 . 2 . 2 . 7 Flowcimrts 
See Plow Diagram 1. 

3. 2. 2. 8 Listing 
See Appendix B. 
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EXIT 


Flow Diagram 1 

// 


(PcagG 4 of 4) 



I 


3.2.3 SOFTWARE COMPONENT NO. 3 (STDATA) 

This subroutine formats and outputs field and subclass 
statistics data. 

3. 2. 3^1 Linkages 

STDATA is called by CAMRPT and by CAl’RJJT. STDATA calls 
subroutines KNT, MDTTL, MEAN, POP, IlEDHED, FNAME, FNAME, 
and STOMP. 

3. 2. 3. 2 Interfaces 
N/A 

3. 2 . 3. 3 Inputs 

The statistics record, containing, for fields or for sub- 
classes, the population and values of the mean and standard 
deviation by channel. 

3. 2. 3. 4 Outputs 

The statistics report. See Appendix A. 

3 . 2 . 3 . 5 Storage Requirements 

Space allocated, including subroutines, is 2811 bytes. 

3 . 2 . 3 . 6 Description 

STDATA is called from CAMRPT or from CAPRNT. The argument 
DFLG is set to indicate the calling program. If it is CAPRNT, 
STDATA calls STDMP to output the CAMS/CAS tape printout 
heading and to print initial data from the statistics record. 
If called by CAMRPT, STDATA prints a statistics report title. 
By means of decode statements, the program converts several 
variables from input character format in IBUF to integers. 



The variables are ALSETS, the total number of statistics 

sets, SETSR, the number of sets in tlie current record, 

and NCH, the number of channels. STDATA calls subroutines 

to move data from input record subfields to print buffers, 

SNAME and FNAME move name data and insert SUBCL and FIELD 
* »' 

designations in the print buffer. POP is called to move 
‘population data. MDTTL is called to supply column headings 
for means and standard deviations, which are transferred to 
a print buffer by MEAN. MEAN also puts decimal points where 
needed. The variable DSETS, set to 5, controls the number 
of statistics sets to be accumulated before outputting the 
print buffers. When the current record statistics sets 
counter reaches SETSR, and ALSETS sets have not yet been 
processed, STDATA calss REDHED to read the next statistics 
record from tape. 

3 V 2 . 3 . 7 Fl ov/charts 
N/A 

3 , 2 . 3 . 8 

Sue Appendix li. 




3.2.4 SOFTWARE COMPONENT NO. 4 (FLDPER) 

FLDPER generates an accuracy report from field data record 
classification results. 

3. 2. 4.1 Linkages 

FLDPR is called by CAMRPT, and calls FPIPO and REDIIED. 

3. 2. 4. 2 Interfaces 
N/A 


3. 2. 4 . 3 Inpu ts 

The field data record, containing the field name, the field 
population, the associated subclass name of the field, the 
number of subclasses, and subclass related classification 
results. 


3 . 2 . 4 . 4 Outputs 

The accuracy report for requests. Sec Appendix A. 

3 . 2 . 4 . 5 S torage Requi rcmonta 

Space allocated to FLDPER is 1703 bytes. 

3 . 2 . 4 . 6 Descriptio n 

FLDPER is called after the first field data record for the 
current segment has been read into array IBUP. The program 
converts the number of field data record subclasses, NOSUB, 
from character code format in IBUF to integer format. The 
class portiv-.iii of the field associated subclass name is saved 
in FASC. FLDPER initializes parameters and arrays for accum- 
ulating classification results on the three classification 
levels, category, class, and field. To begin subclass pro- 
cessing, the program sets the location in the array IBUF 



of the first subfield containing subclass related classifi- 
cation results. Subfield con bents are accessed by calling 
subroutine FPIPO, which returns the class portion of the 
subclass name, and PI, the subclass inclusion pixel count. 

The first character of the class name, which specifies 
the category, is tested for categories W, N, and X. If a 
match is found, the corresponding category pixel inclusion 
count on the field level is increased by PI. The first 
subfield class name is saved in CLIST and the pixel count 
for that class is set tc PI. In processing for the next 
subfield, after calling FPIPO, the class name is compared 
to the last class name in CLIST. If it is a new one, it 
is saved in CLIST and the class counter is increased by 1. 
This causes the pixel count PI to be added into the next 
array location for summing results. After N0SU13 subclass 
results have been processed, the field level classification 
percentages are compirhed for the categories W, N. X and for 
all classes in CLIBT. The percentages are output aJong with 
the field name and field population. On the class level, 
where class now refers to the field associated class name 
in PASC, the just compiled field totals are added to class 
level totals. This completes processing of the current 
field record. A new field data record is read into IBUF. 

The class portion of its field associated subclass name is 
compared to the name for the previous field in FASC. If 
it is the same class, the progreim goes to initialize field 
level variables and to process the current field record as 
before. 

If a new class is indicated, then r^ass level percentages 
are computed and output with the FASC class name. Next the 
first character of the new class name, and the old class 
name in FASC, are compared to see if the category has also 
changed. If so, then category level percentages are computed 


and output. In any case, the new class level name is saved 
in F/iSC, and a return is made to initialize either category 
or class level variables, as required, before processing 
the new field data record. 

3. 2, 4. 7 Flowcharts 

« 4 

■ See, Flow Diagram 2. 

3 ,2. 4, '6 Listing 
See Appendix B. 
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Get field population PF. 


L 

Set field class counter K to 1 
Set subclass counter J to 1. 


Get pixel inclusion I 
and threshold T counts 
for subclass J. 


Set IF(K) = IF(K) +• I 
TF « TF + T 


If subclass J category is W 
set FW « FIV + I. If NW, . 
set FNW « FNW +1. If X, 
set FX « FX •< I, 


hast subclass 


IkmI 


Increment subclass 
counter J. 
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Is subclass J 


a new class? 


Increment class 
counter K. 


Compute field class percentages: 
PIF(l) « (IF(I)/PP) 100 1^1, K 

FTP « (TF/PF) 100 
and calcsgory percentages: 

PW « (FW/PF) 100 
PNW » (FNW/PF) 100 
PX “ (FX/PF) 100 . 


Write field output line: 

Field name, PF, PW, PNW, PTF, PX 
PIFCI), I = l,k 


Flow Diagra 
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Update class class pixel counts: 
IC(I) * IC(I) -f- mi), I-1,K 
threshold and category counts: 

TC « TC + TF 
PC « PC + PF 
CW « CW + FW 
CNW - CNW + FNW 

ex ex + FX 



*1 

hast field 

. _ _ 1 


Is next field asspciatod 
subclass a new class 



Compute class class percentages: 
PIC(I) (1C(1)/PC) 100 
PTC (TC/PC) 100 
and category percentages: 
pew “ (CW/PC}'l00 
PCNW « (CNW/PC) 100 
PCX « (CX/PC) 100 
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Write class output linej 
Class name, CF, PCW, PCNW, PTC, PCX 
PIC(I), 1*1, K 


Update catoj 
ICAT(I) * 
TCAT « TO 
and category 
PGAT “ PCi 
CATW “ CA' 
CATNW « CA' 
CATX « GA' 

jory class counts 
ICAT(I) + XC(I), 1*1, K 
\T + TC 
7 counts: 

VT + PC 

rw + cw 

PNW + CNW 

rx + cx 



Last field 



riMw— ^ n r j w r— t — ni iT^ T~‘TT‘^‘-^n — ^ 

Is next field 
associated subclass 
a new category 


No 
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Comput category class percentages: 
PICAT(I) - (ICAT CI)/PCAT) 100 
PTCAi’ » (TCAT/PCAT) 100 
and category pcrccnt'^ges: 

PCATW » (CATW/PCAT) 100 
PCATNW » (CATNW/PCAT) 100 
PCATX » (CATX/PCAT) 100 


Write category output line; 
Category name, PCAT, PCATW, PCATNW 
PTCAT, PCATX, PICATCJ), 1«1,X 
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3.2.5 SOFTWliRF COMPONENT NO. 5 (CAPRNT) 

This program prints out. the contents, record by record, of 
the CAMS/CAS interface tape. 

3. 2. 5.1 Linkages 

CAPRNT is called by CAMRPT and calls subroutines KNT, STDATA, 
and REDHED. 

3*2. 5. 2 Interfaces 
N/A 

3 . 2 . 5 . 3 Inputs 

CAMS/CAS interface tape records. 

3 . 2 . 5 . 4 Outputs 

The CAMS/CAS interface tape printout. 

3. 2. 5. 5 Storage Requirements 
Total space allocated is 2204 bytes. 

3 . 2 . 5 . 6 Description 

CAPRNT is called by CAMRPT c\£ter an initializing call to 
tape routine R13DHED has been made and the first input tape 
record read into array IBUF. The record type is determined 
from the first byte of the record. The program transfers 
to a portion of the program which prints out the contents 
of that record type. A return is made to main program 
CAMRPT to read in the next record. The program calls STDATA 
tio format and output statistics data. Subroutine KNT is 
called to print a page title and page number. 




-^3 
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3. 2. 5. 7 Flowcharts 
N/A 

3. 2. 5. 8 liistinq 
See Appendix B. 




4 . OPERATING PROCEDURE 


4.1 GENERAL 

This procedure illustrates how a Bldg. 30 provided CAMS /CAS 
Interface tape is processed so that the required reports, 
within user desired options, are being produced. The test 
is accomplished by mounting a Bldg. 30 tape and executing 
the process program through various parameter cards and key- 
board controls. The control cards available are: 

PRINT TAPE (optional) 

ALL SEGMENTS (optional) 

SEGMENT XXXX (optional) 

R13CORD ID XXXXXX XXXXXX (optional) 

END (mandatory) 

All optional commands can be used independent of each other 
or collectively, in any order. 

4.2 TEST PROCEDURE 

a. Have the operator set the line printer to non-spool. 

b. Log on to the system, 

MCR>HEL [50,50] 

c. Mount CAMS/CAS Interface tape #A20203 on unit MTO and 
enter mount message. 

MCR>MOU MT0:/CHA=[FOR] (CR) 

d. Load card reader with the following reports and program 
control cards and start card reader. 

PRINT TAPE 

SEGMENT 9691 

SEGMENT 9679 

RECORD ID 020414 B DOOl 

END 



e. Execute CAMS /CAS Interface Tape Report Generation program 
by "keyboard input of; 

MCR>RUN : CAMRPT$ 

f. Remove tape #A20203 from unit MTO and mount tape #A20204. 

g. Load card reader with following report and program control 
cards and start card reader. 

-ALL • SEGMENTS 
. ■ END 

h. .Execute CAMS /CAS Tape Report Generation program by key- 
■ board input of; 

. MCR>RUN ; CAMRPT$ 

i. Unload mounted tape, remove cards from card reader and 
collect reports from the system line printer. 


f\, 
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PROGRAM LISTINGS 






Ik mm- • 


«t 




■ M m0mm-.t-mr:.4 ^ 


h 


rOHTRAN IV- 


'4 

c 

0 

„CAHRPJ,I 

0001 » 
0002 

0003 .. 

0004 

_0005„.„.. 

FTN..,,„ 

0 

0006 
0007 . 



0006 
. 0009 . 

15 

0 


C 


«»00 0 

X 

OOM 
. 0012. . 

99 

( 

0013 
. 0014 
0015 

20 


. 0016.„ . 

^ r rmaarntm 

f- 

0017 

21 

(. 

.0018. . 

t ^ -'S , * 1' - 

o 

0019 

0020 , . 

1 . 

0021 

22 


0022.^ — 

» . ^ K esifae- 

<J 

0023 

86 

0024 . 



0025 

. ^ 


0026 . 

33 

o 

0027 



..0026.,... 


V 

0029 

“33“"’ 

. 0030 

\ 


0051 

i 

( 

0032 

0033 



0034 



■ 0035 

'35 

c 

0036 



0037 

0038 

0039 

31 


0040 


c 

* 0041"' 
0042 

4 

0045 

0044 


( 

00 45 '“'" 



0046 

i 


' 0047 “ ' 

' i • 'c . 

1 

/ 

004P 


\ 

0049 

0050 

0051 

7 


0052 

0053' 

— 

t 

V 

0054 



PLU5 V02-0« 

/tpjbuocks/wr. 


1S|32|01 


08 -rEB -77 


PACE 1 


»). GO. TO. 21, 


IHPLICIT lNTFCERtA-2) 

LOPlCiUtl lOIIKfJOfcO) 

UOCICAI*! CCMAH 
I.OGICAI.*! C0(80) 
tCGICAL*! CONTR (Si 
IDGICAL*! SgnSOt'O.RECOROnZ) 
commom/seg/sfgno ., ... „ . . 

DATA CONTB/1H5, IHR, IHP, IHA, IHE/ 
CONTINUE ^ -sw • ,r^ 

WRlTF(6,tOO) 
a'f ONHA T n 0 X , J * i )H* A # *ik A? ?.? ? ?5)l I# ♦JlJil 
82*0(5, «>«>) CO 
FORMAT(eOAt) .. 

00 20 1st, 72. 

!F(C0(1)'.NE.' 

CONTINUE 
CC TO 22 

cCHARscoen 

DO I Kal,5. ■ 
IF(CONTR(K),EO.CCHaH) go to 2 
CONTINUE 
CONTINUE 
WRlTr(ft,B8). 

FORMATdOXi • 0*0 OAT* CARD ») 

STOP . 

GO 10(H.3l,5^i,H't»35)R 

continue 

_R»'0 

continue 

CAM, pEoHEniinup *R^ni.n 
Rsl(| I 

IK(F1lF,F0’.3) go to 15 
C*IL C*PRNTnUUF,R,FU.t) 

.GO in , 3 T.I 
CONTINUE 
Rbq 

C*Ul REDHED(TOUr,R,FaE) 

'STOP 

continue 

F *0 .. . 

.. . . „ . 

II <CD(I).NE.t I) GO TO 3 
I'M t 


•r-r 

I 



»**s= 3 cjse»eru ' 


a tnK-cs* e^w ■ 




V 


IF(I.GT.72), 
GO TO li 
F'F +1 _ 

IF(F’.Fl3'.n 
IF(<'.Ef 5 ,n 
Ir .r .fO.2) 

GO TO 8 
I'MI 

IF(C0(IT .EO, • 
lF(l.r.T.72T 
GO TO 7 

wPiie( 8 ,io 2 i 


GO TO 9, 


GO 

GO 

GO 


TO 

TO 

TO 


M 

GO TO 


GO 

9 


TO a 


(CO(J). JsI.MJ) 




I 


rOPTRIN IV-PLU5 voz.oa tSiSZIOl 08-FE8-7T, 

CAMRPT.FTN /TH|8L0CK5/MS 


PACE 2, 


c 

(! 

C: 

C 

(;> 

C' 

O 

(.' 

c 

c 

(' 

( 

c. 

c 


0055 

8 

.0056, 

... 1, . . — sj-r 

0057 


. 0056 


0059 


-.01(60^ 


0061 

11 

0062 


0065 

12 

. 0069 


0065 


-.0066. 


0067 


. 0068 



0069 


. 0070. 

1 9 .... 

0071 

13 

. 0072 

Ml »« H II II ll»lll»IH.I|l IP 

0073 


0079 

, -91 .. 

0075 


. 0076 


0077 


-0078. 

09 

( SiMNUMaKC 7r . i 

0079 



oo»o. 

ooet 

0062 

ooaj^ 

oooa 

0065 

0066 
0067 
0066 
0069„ 

0090 

0091 

0092 
0095 
0099 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
010? 
0103 
0109 
0105 
.0106.„ 
0107 
0108. 


ar 

c 

92 


93 

‘c““ 

95 

59 

96 


CONTINUE 

If (K’.EO'.ai , 60 TP .12^ 

JJ>1 

DO It J»I»U3 
sEcNn(.ij)xcorJ) 


CONTINUE 
CO TO. 1 5 
CONTINUE 
JJ*i .. 

DO 19 JaI,Hl2 
.OlfpJ-lH 


IF(OIf*.EO,7) GO TO 19 
PECORO(JJ)kCD.(J1. 

CONTINUE 
CONTINUE 
P“0, 


FILEbo 

CONTINUE. 

C*Ll. REOHEnlTBUFiR.FlLE) 
inFU.F.lT',2). GO TO 97 
WRITE(6,89) 

POWM.AT 1 ) yOj.,l0Xiif'EGHENI„NO 

GO TO 15 
CONTINUE 
RuHfl 

WHI«f (6,92) R 


J 0 . UiLLEJiluplL... 


FORMATHOX,* R» •, I9J 


TO (jl 
TO 91 


•) 


99 


jFnf’UF(n..NE,!RU. J50. 
IFnfnt^'(2),CT.M') CD 
. IF(K'.E0'.2) go TO .16 
PO 9'i T»li9 . 

TF(Sf;fiW0(i),Nfc*,IHUF(l«7 + ln 00 TO 91 

continue 
WRITE (6# 95) 

PORM*TMOX»' found segment 
j;0 TO 96 , 

Rso 

FILEbO • 

CALI, RFOMEDnnUI,R,FlLE) 

RB941 

Tt nBljFin .NF, ) GO TO 9fl 
CALL C*MPERnBUF,R,FrLE) 

CALL wFoHEPtTRIIFjRiFlLEJ 

DFLGbi) 

CALL STDATA(TBI'F,»,FILE,0FL0) 

CALL REOHEO(T0UF»R.FILEJ 
CALL S1DAT4(TPIIF,P,FTLE,DFLG) 

CALL REDWEn(lBUF.P»FILE) 

CA|l flopfritpuf.p.file) 

TF(FlLE,E9.2t GO TO 15 

_!£.( K . £(?■. 9.L..j;P„I.a™9 6 

GO TO 15 

CONtIWUE . . 


I 




i #» • nt > *a 1 : ' 

c / 


t»* 


Cl 


(. 


c 

c 


c 

< 

c 

0 


o 


c. 


FOBTflAN IV. 
.CAMBER. F.T?1,„ 


0001 

0002 

0003 

0004 

..ooos. 

0006 
0007. 
0008 
.0009 
0010 
,.001 L 
0012 
.0013. 
00 1 0 
.0015, 
0016 
, 001 7 „ 


PLUS Vo 2 »oO 
.,.„_yTR|BLOCKS/WR„ 


15132132 


Ofl-FEB 


77 


PACE 1 


11 


,-.91 


subroutine CAMPERf IBUFiR,FlLE). 
implicit TN7Er.E»f A-2) 

logical*! lBuF(l),CLlST(290),CLASSf«J. 

LOGICAL*! PBfl32), BLANK, PT 

_..LOGICAL*l .SEGNOIO)™-. 

dimension CTM6 ) 

. INTEGER RK601 

REAL Pw(60),y,V.PCW,PNW 

RF.AL pmj,PDO,PTH,PX,PW.tH 

• C 0 MM 0 N/ 5 EG/SEGN 0 

_.DATA..BLANK/.1 K_/_ 

OATA PT/IH'./ 

.00 11 I»1.132— 

PBMIcBI.ANK 

CALL CAMHOGnOUFJ.- 

WR1TE(6,99) 

FORM A t ( M , asx . J_c L AS SlE.LC.A,tlDN,.SUMRAR U? EROfLLiJ. 


c 

0016 

0019,. 

. 90..... 

WRITE(6,90) 

. format (1 HO) 1 




0020 
00 21 

96 . . 

WRITF(6,96) 

FORMAT ( 1 H.., 62X, ! normalized 'J. _ 



C'l 

0022 

„0023„ 


11 = 0 

00 95 .I.fui.u 


• 

o 

0020 

0025 


IF(IBUE(rt3*JJ)’.EO,*l‘) GO TO 96 
CO TCI 95 


, 

0026 

0027 

96 

11 = 11 it 
cTnn«.fj 


. 

o 

002S 

0029 

95 

CONTINUE 

IlMAVill . 


• • 


0010 

OOJl 

0032 

0033 
0030 
0035" 
0036 

0037 

0038 

0039 
0000 
ooof 
0002 
0003 
0000 

”0005' 

0006 

'0007 

0000 

0009 

0050 

0051 
0052. 
0053 
0050 
0055 


97 * 


5 

100 

.^'Ol. 

i 

1 


WP!TF(6,97) 

f'OFtnAKlH ,2SX, » subclass 
AUPRIO r/1 VALUE •) 

KtiO 

J«l 

Will . 

"■ "W,l«209'"“ 

Sf TSRsiO 
L/LD«32 " 

V^ITsO 
XC = 0 
TCkO 

’."Do. rVlBl ,60 

■•‘‘IVIMaO 

DFCODEtO, 100,TnUFf5t>‘n ND5U0 

FnPMAT(IOI 

0EC0DE(5, roi,TBUF(6oY) OO"'" 

FOPmAT(I51 „ 

0EC0DE(5, l6l,TSMF(69)j DU " 
GO TO 2 

CALL REOHED(lBUF,P,FILEi 
92=3 „ . . 

SFTSPS22 

NbI 


N AME.,__ J[HrESH 0 L 1 . 9 Al,UE. 








CONTINUE 

CALL CPIPOnRllFfRJ) ,Cl.ASS,PI,POV 
call MV(lBllFirRJ) ,PB( 2 fl) , 6 ) 


^47 




I 


• :*as: - 1 * •»» # 


ct .afrar-T Hj iii U Mi II I W i Jiti'junn.u ii J» ii tj» t 2 


rORTP^N TV-PLUS. V02-OU I5l32l32 ,,0»-FE8-77, 

C CAMPER. FTN /TH|PLOC«S/WR 


0056 

0057 
005$ 

0059 „ 

0060 
0061.. 
0062 
0063. 

0064 

0065 

0066 
J06t. 

0066 

0069 

OOTO 

0071 

0072 
0075.. 
0074 
0075. 
0076 

. 0077 , 
0078 
-0079,. 
0080 
0081 
0082 
0085 

0084 

0085 
0086“ 

0087 

0088 
0069 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 
’0098 

0099 

0100 
0101 
0102* 
0103 

"0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 


.20., .. 


call MV(18UF(RJ*15),PU(46),3) 

, P9(49)*PT . , 

PB<50)si8UF(9J+l«) 

CALL HV(18UF(RJ^19),PB(66),51, , 
WRlTEeO.lin (PD(PJ)iPJs27,79) 

. format (29X.60Al,l>,=.^ 

TCsTC+PO 

iFtcLAss’ni.Eo.'y*) go to io.___... 

lF(CLASS(nU'0, *w ) GO TO 20 

on TO 30 

XCsVC+PT 

. I F IJ . £n . NO 5UDl„>G0-aQ JO 

j«jti 

IF(N.f.o’,SFT5Rl . GO TO I 
NsN+ 1 

RJaHJ+LFLD 
GO TO 2 

1 F { K . E G) 0 ) .»™G Q..T Q , S ... 

LKe4*(K“l) 

DO 4 list *4 ‘ . . 

IFGCLASSnn.NE’.CLlSTCLKTim GO 1 

continue , ...... 

WMK)3Wt(Kl+PT 

w n p w 1 1 ♦ P 0 1 R! 

GO TO 30 

K»Kt1 . ... 

LK*4*(K«1) 

00 6 IlPl.4 . .. .... 

cusT(i.t<*'m«cLAss(n) 

. W1 {K)«WI (K)f»l 

WITpVUTtPO^P! 

GO TO 30 „ . . 

continue 

URnC.(6,94) 

NR*TFG6,<»51 (CTnn»ltal*nMAX) 
F0MMAY(25V# 'CHANNLLS U8EDI ',16(1) 

PC*22932 ■ * ■ . “ “ 

OaPc-On-OU-VC 

yaFLOATfXC)*FLOAT(OU) 

00 41 JJsi.K 

X*rLOAT(WT(JJT) 

PW(Jjl3fX*(V*vWFL0AT(0))/FL0ATtPC: 

PW( JJ)spW(JJT*100, 

■ COI.tinuE . • .. . 

PCW*0. 

DO 4? JJ*1,K ... 

pr,w=PcwTpw(JJ) 

CONTINUE 

PNW»tOo'.-PCW 

prun (FLOAT (OUT /float (PCn* 100, 

pno=( Float (DO) /FLOAT (PC))* 100 ,' 
ospc-r>o-ou , 

PTHs (FLOAT (TC) /FLOAT (0))* 100, 

. P V = ( F 1. 0 A t ( y.C.) /F L 0 A T (P C ) ) .* J 0 0 I 

X8FL0AT(WIT) ■ 

PWTHs(X* (X*V) /FL04T(D))/FL0AT(PC) 


I 


.FORfRAN IV-PLUS V02-0a . 15|32I32 08-FEB-77. 

CAMPER, FTN /TR|BL0CKS/WR 


PACE 3. 


0112 

0113 


PWTHaPWTH*100*. 

WPTTFf^.ROOi . _ 


0114 

.0115 

200 

Format ( ' i ' .2ixi 'segment percentages' ) 

WRTTF(<,,Qfl1 , - 


0116 

>0117, 

>_...20.1,.„_ 

WRlTET6#20n PCW 

.FfiRMATflH .21 ^. 'wheat. CATEGORY. •. 1.F5.11 


0118 

_0119 

.. ?02 

WR1TF(6,20?) PNW 

FORMATMH .2lX.*MDN » MEAT CATEGORY *F5. 1 1 * . .. 


0120. 

,0121. 

, 203. . 

WRItE(6,P03J pro 

' FORMATfjW ,?1X. 'DESIGNATED OTHER ..-.'.FS.D 


0122 

-0123. 

_:„.,20ol 

WRlTE(6,2oai PTH 

FOWMATMH ,?tX. tTHRESHOLO -.‘,F5,1) . 

* 

0124 


WRITE(6.205) POU 



< 

”0128 

fc. w 

‘•'RITEfO, 


-.oia**- 

0130 


™fORMAni 
DO 207 

c 

.0131 .. 


JU‘1 , . 


0132 

* 

J2»4 


0133 


WRITE (6, 

(•'1 

0134 


JlaJlT'i 


0135 


.. ,72»*J2f« , 

0 

0136 ■ 

■‘207 

cnVT JNUE 

0137 

0158 

208 . . 

FORHAff 1 
HR H E (6, 


0134 

210. 

FORMATU 

<1 

' OjilO 


RETURN 


FORmATCIM ,21X, 'DEsICNATEO UnIOENT.-. ! »P5,U. 
WR1TF(6,206) PX 

FOWHATHM ,a»X,'X CATEGORY., •„.'»F5.l) 


.(CLI3T.(JJ),JJ=«J1,J2),PW{I),„_ 


fX, 'WHEAT Ci,ASS - SF5|0 

PWTH 

1-^ • at THRESHOLD I. . » tF5, (J 


c 


I 



C -“foRTWAN IV-VLUi‘VoT-0« 

^ „j:PlPD ^F.IN _./J8 1 BLnCKS/.WR_„ 


C . 0001,, SUBRoUTI>JE CPIPO(Pl.U,CLASS»PliPOj.,, 

oooa implicit INTEgERIA-Z) 

..0003 .-..,.™.. logical*! FLOniiCLASSni...^ — 
c*. OOOR 00 2 ISI.U 

- 0005_„_ CLASS ( I ) =FLO a J™__ 

• ^ 0006 2 COMTINUE 

• C' .0007. . .... . ..OECODFf5,tOOiFLO(H3)).-..P,l-„,^ 

, oooa 100 format{T5) 

^ 0009 OECOOECS, 100|FLO(2B)J 

C 0010 RETURN 

-AO 1 .L... _en d : ' 




..L 


i C 


> ••'Ar. • . «•>*««•• t 


C FORT*RA*N IV-Kul V02-0tt 
^ .IN y.T B I B LO CK S /MR- 

C, '' 


iSiSSita 98 -FEB -77 


PACE 1 


c 

c 

( 

Ci' 

(> 

(I 

(• 

c 

c 

( 


0001. - 

0002 
-0003 
0004 
0005— . 


0004 ' 


-0007 —.. 

II » . 

ooos. 

1 

..0009 

V ■ . ») J. ■■’OF 

OOlO • 

uoo 

•no t t 


0012 

401 

..0013 

.«',*■ . - 

0014 ' 

402 

0015 . 


001b . 

403 

-001.7- . 


0016 

404 


......... #' 

0019 


0020 . 

11 

0021 


.0022 — 


00?3 


0024 ... 

. ..... .. ... 

0028 


002b . . 


0027 


0020 



0029 


0030 


003 1 

9 

ooia 

10 ' 

0033 

301 

0034 


0035 


003b 


0037 

12 

0056 


0039 


0040 


0041 


0042 


OOU3 


0044 


0045 


004b 


0047 


0046 

3 

0049 


0050 

300 

0051 


0052__ 

? 

0053 

4 

0054 


0055 



SUBROUTINE -C AMHdG ( lOUF I ; 
IMPLICIT IWTFGF.Rf A-Z) 
LOGICAL*! TBllFI n ,SEGNO(«) 
LOGICAL*! POma), BLANK 

.C.OHMON/SEG/SFGNO. 

DATA BLANK/IH / [ 

DO . ..IK 


sEGNom=iPUp(ta7ti) 

-WR 1 T E ( fc , « 0 0 ) . . ... . ^ ... 

PORHATI ' I ' •aiX. 'CAMS INTERFACE REPORT') 

iTE(6,iioi.)—aeuF{i),ip3,a6) 

FO«MATMNO,3X> *OPAW NO, a *,2“Al) 

WRlTE(8,«0a) (rRUF(I),I=709,7ia), (I0UF(JJ,J = 715),720), 


10 


>|bAl,lX,6A|) 


format nH0,3V| »RECDRO 

WR1TF(6,U03) .. ■ 

FOPMATdHO.SOX, I acquisition DATES') 

K' R I T E ( 6 , U 0 a ) ... 

format < 1H ,«7X. • 1 ' i6X, *2',6Xf *3'»6X, 'i»'» 15XJ 

IEGHENT TVPE ' V — 

DO It Nsl,|32 

P B ( N ) a 0 L A N K . . . . -- — — - 

RJ«t<18 

. C A L L . M V (IB U F. if R J ) A i‘ B (3 1 ) , A 5 

IPaR7 

P(i(9l )aU'UF<RJf<»). 

Rl9RJf6 

DO 9 .lal.4 ... . 

IF( I0UF(Rn .FO. »0* ) GO TO |0 
CAU. HV(1BUF'(RI) iP0.(XP.) » 5). 

RI*RlA'i> 

1P«lP + 7 

CONTINUE 

RRnF(rt,50t) (PH(K)*Xa30»‘>'5) 

FORMAKih ,.3X# 'RKCOGNITION SEg, number b',66A!) 

RJ«|7<) „ „ 

DO 2 I«"l,5 

DO 1? Nat, 132 _ 

POINT sBLANK 

IFIIDUFIRJ) .(-0. 'O' ) CD TO 
CALL MV(IRI|FIRJ),PB(31),4) 

PHI9! )aiDUF(PJA«). .. 

IP*«7 

BIsRJtS . 


DO 3 jal," 

IFnHl)F(Rn,FO.tO') GO TO 
CALL MV(IBUFiBl)»P0(lP)i5) 

,Bi»RT*5 . 

IPalP+T 

CONTTmUe 

WRITEtfc,300) I, CPB(K).Kr30»95) 
POPmAtI 1M 

PJaRJ+25 


•training segment Nn, 




a' ,66AU 


CONTTNUE 

PFTURN 

F.ND 


..r 







I 



' FORTRAN IV.PLUS Vos-qV ~ *1*5133126 “oB-FEB-f/**"'* “ * PACn 

BV. FTN _, /TRi blocks /N il- 

(•:> . 0001 SUBROUTINE Mv (FLO, PO, NC).„,, 

0002 IMPLICIT INTESFHfA-Z) 

. 0003 logical*! FLO(l) »PH(l)— .... 

(I OOOR 00 8 Jal.NC 

„0005___fi.._ ,P0(J)=FLDtJJ.„......^ — ^ 

0006 RETURN 

( 5 ) . 000 END . , . „ 




0 



PAGE 1 


"’fortpan iv-PLus vli-ou"’” “““"Tsissisr *'“o¥-feb-T7 

>SIGAl|.FJjy_™„ ./IP I BLQ.C!<,5/W.fL_ 


.00 01. SUBROUTINE STDATAnBUF#R,FItE*OFLC}.„„ 

0002 IMPLICIT INTEriER(A-Z) 

.OOOS. LOGICAL*!' 5BUF( tj , PFMf 1 S2) . PP tl32) , RN(132) 

0004 logical*! PTLf!32)»PP(2!!2) 

.J005 LOCICAl*!..BLAMH...... : 

0006 LOKICAL*! PF(!32) 

. 0007 common/pcnt/line.page™.„. 

0005 DATA BLANK/iH / 

0009 rFlOFLG.EO'.OT ..GO .tO.J 2 

00!0 call STOf*PCI0UF) 

„00! I GO. .TO . ! 1 

0012 !2 CONTTNUE 

00!3 ... MRITE(6,«977.. .. 

00!4 97 F0RMAT(*t*.aPX,»5TATlSTlCS REPORT') 

, 0 0 ! 5 .. 13. CONTI NUE. 

00!6 NHaXkHO' ' 

.001 7™. .K«,l.. 

00!e Is! 

00!9 „ .... PT«*1I . 

0020 • OFCOOF(3„'«‘>,IOUF(5) ) ALSET3 

002! 99.,,. format (n.'H . . 

0022 0Ee0DEr2,'«>8, IRUF(!0)) NCH 

0023 .9 e_„„, XaR H A T. ( i 2 - 1 

0024 NLlNSs62' 


0025 VL«sNCM»fc, 

0026 lF(OF|,r,,ltIl.!l NLIN3SNLINS-7- 

0027 _ LSETS«NLf»J.«5/yL 

0020 ' " OSF.TS“5 


0029 PSETSaO ; 

“0030" “■ " LFLDb! 1+9*>iCM 

003! IF(IOUF(a')..E«', 'F') LFLD* 1 a + 9*MCH 

0032 ■ 20 “ ‘ Jdl 

0033 RJai2 _ . 

0054 IFO(.EO.I> GO TO 6 

0035 CALL RfOMF{HIf\UF,W,KII.E) _ _ 

0036 -fl—-' DECoDE(2,9li,inUF(fl)) SETSR" 

0037 1 CONTINUE 

0030 IF(IBUF(2>-F0'.'S') GO TO 22 

0039 CALL FMAMf.f IBiiF(Rj) .PFNfPI) ) 

0040 22 CALL PoP(n^lF<RJ)»PP(Pn*I0UF(2)) 

0041 call SMAM>-<ifl|iFf«J),PM(Pl)iltHlF(2)) 

0042 * ’ CALL MC>Tn.<PTl (Pm 

0043 CALL MEA>ifT 0 HFfPJ),PM{Pn,NCH,!BUF( 2 )) 

0044 ■ IF(K,ro'.ALSElS) GO TO 10 


0045 ksK+i 

“0046 IFCr.Eo'.OSETS) ■'"go* TO 9 

0047 laUi 


0040 


PI=P1*19 

0049 

? 

IFCJ.Eq'.SETSRV '“’0 10 20 1 , 

0050 


JbJ+1 

0051 


PJ = RJ*LFLD . .. 

0052 • 


CO TO 1 

. 0053 

6 

ksK«i " ' 

0054 


continue 

0055 


PSETSsPSFTSf 1 

0056 


TFtPSE^S’.LE.lSETS) GO TO H 






• . . .i 


PnRTRlN IVaPLIIS 

' V02«06 151.33131 06-FEB-77 , ,, , 

1 ♦ 

PAGE. 2 

’stoat* 

.FtN 

/TH|RL0CKS/WR 


" 0057 

.0050 . 

0059 

.0060 

0061 

0062. 


PSETSsl ^ 

I^^tPFLO EfJ.ll GO TO 16 - 


96 

WRITF{6,963 

cnp'..iiT / < 1 • % — 


16 _ 

GO TO 11 

rONTTwilp 


0063 
,0066 ... 

0065 
..0066 - 
0067 
0060 


LINE=66 

f *1 1 yKlj - 


n 

CONTINUE 

uRTTr rf ,0(|> - - - 



rORM»T(lHO> ^ 

IF f TRi'F f ?1 . pn ' 8 ' 1 TO 1 


0069 

.0070.. 

0071 

0072 

0073 

0074 

101 
102 . 

WRlTElfe.lOj) (PFN(N)»Nal,NMA!<) 

FnRM 1 T l> 1 W . t 'X 1 A 1 1 . .. 


WBITE(6. 102) (PP(N) ,N=10,NMAX) 

fnRMATMM .•tMANNFl I,1??A1) 


V<6ITE(6»l0n (PN(N)#NC1,NMAX) 
GO TO 7 , ,, 


0075 

0076 

0077 

oora 

3 

CONTINUE 

WPITE(6*l0l) (PN(N) ,N3| ,NMAX) 

• 

7 

103 

WRITE (6i i02) (PP<N) jNstO,NMAX) 

hRTTEf^*!^^' f Nl <Ns6f NMAX) , , ,, 


0079 

0000 

Format ( iM ,»N(imu;n »,i22Ah 

INsfc . . 


ooai 

0002 


ImkNm'AX 

00 5 IIm.-1»NCH . .. .. 


0083 

0004 

104 

N!?ITl (6, 106) (JI, (PM(N),N«IN»IM)) ’ 

F0RHAT(1M .?X.I2,128A1) 


0005 

0066 


INsiMf H2 

IMalM+n? 


■ 0067" " 
0066 

' "5 

6 

CONTINUE 

continue . 


‘ 0009 

0090 

0091 

0092 


00 30 N«,|,132 

PF{W)iiaLANk . . .. .. 

PFN(U)atil ANK 
PN(N)fm.AMK 

... ...... ... 

■ 0095 

0094 

0095 

0096 

0097 

0098 

60 

.3^ 

PTL(N)«fU.ANK 

PP(N)SHLANK . , 

00 60 NN*i,NCH 

Pm(N.^(mn„1)*132I=!-»LANK 

continue 

CONTiNuF . , _ 

..... ... 

0099 

0100 
LiiOl 
0102 

IF(k'.EO.l) GO TO 6 

IFCk.Eo'.ALSETS) RETURN „ 

K = K + 1 
lal 

■ “■ — ■ ■ ■ 

'0103 

0106 


Pisll 

GO TO 2 . . 


OIOS 


END 




FORTRAN IV-PLUS Vo?-0« 
HE AN.FTN I B LOCKES 'WJL 


1SI33IB0 


oe-FEB-77 


PACE 1 


SUBROUTINE ME*NrFLO.PM,NCH,FtCJ„, 
IMPLICIT INTEgEP«A-z) 

. logical*! FLOil) ,PM(n,FUC(t)#PT. 
LOGICAL*! BLK 

„D* t A „P T /IH., : 

OATA BLK/IH f 

. OFF.ll . 

IF(FLCcn.En.'F') UFF«18 

K s I «—_—*■ .™«. . 

no ''Y '"’jsTTnch ' ' 

-JJ* ( J-ll * 132.„_ 


0012 

PM(N411=FL0(PFF41) 

. 0013 

„ PM(N*2)sFLP(nFFt2) 

0014 

TF(pM(|y*n’.NF,'0') 

, 0015.. 

, PM(N+n::lH.K . . 

0016 

IF{PM(N*2)’.E0.'0') 

00! 7 10 

..PM{NT3)=n.D(PrFJ-J). 

ooie 

PM(N*/i)uPT 

.0019. „ „ . 

PM(N4S)2n.O(OFF44) 

0020 

PN(Nt6)tJFL0(nFFf5) 


GO TO !0 
>M(N^2)’«BLK 


PM(N + 7)s»LK . . 
PM(N»D5.-Ft.n(nFFf6) 
_PM(N.*R)sFLO{nfFt?) 
IF(PM(NfA),MF,lO') I 
PN(N*6)snll< 

IF(PM(N + ')).EO,*0*) I 
PM(NMn)eFLO(OFF4B) . 
PMINfl n»PT 

„ P M ( N ♦ I ? ) « P L n < P EFiJl.. 
OFFaOFFL'I 

continue 

RETURN 

FNO 


QQ TQ 11 


PH'(N49)eO!.K 





R 





FO(?TR*N IV-PLUS V02-0<J 
J!OP m 1 0LO( 


ISlSmOl 08-FE8-7T 


, SUBROUTINE POPfFLO.PP.FLG) 

IMPLICIT INTEREP(A-Z) 

UOGICAlM FLOf l)»Ppm»PAR(2)rFLC»(l)-. 
DAT4 PiP/1H(,lH)/ 

_0Fr»6 

IFlFLCtn'.EO.'FM OFFan 

PP(5)spARU) 

.PO I Isl,5 

PPd + JlaFLOniOEF)-.-.^ 

• continue 

_J>P.(9)?P,ARt2) 

RETURN 

,ilNO — — — „ 
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r 


I c 


c 

> < 

c 


c 

c 

c 


L 

c 


K 

c 


c 

c 


fc» » <■*■> ■ ' 


fortran IV-PIUS V02-0R 
-SNAME^fX^ ™/lR|PLOc!<?/i-B., 


15I34I1S 


oe-FEB-77 


PAGE i 


(. 

C* 


,0001. 

0002 

,0005. 

0004 

.0005, 

0006 

.0007 

0006 

.0009 

0010 

J 5 .IL 

0012 


11 


SUBROUTINE SN*HE(FLD,PN,FLC). 

INRLICIT INTEf,ER{A-Z) 
logical*! FLD(n.PN(t)#SUBCL(6),FLC(U. 
data SuecL/lHS>lHU.lHB>lHC«lHL«lH / 

.OFF»0 

IF(FLC(1).E0,*F») OFF*7 
DO 11 I!sl»6 
PN(in = 5UBCL(Tl) 

PNfTlH)=ELO(IlTOFF.)., 

CONTINUE . 

JEIURN, 

END 


1 


! O 

j 

I 

1 

. O 

I 

I o 




escxzr **:^»« *; 




(I 










••wf 




f 



rORTPAN IV-PLU5 V02-0<l‘ 

/!» I ?L(tCMS/'#> 


I5l3aij9 06-rEB-77 


SUBROUTINE FLnPEPnBUF»P»FaE) 

IMPLICIT INTERER(A- 0 . 0 -Z)»REAU (P) 

. aiTtOER PI.PO 

LOGICAL* t lBiiFn)»CLlS 7 ( 2 ttO)#F» 5 C(tt) 

..OIHENSIQN .ICAT(fcO) I IC( 65 ) . 

DIMENSION PIF(«.rt)>PlC( 60 )»PlCAT((» 0 ) 

Logical*! fieloi^i.classi^ii.^,. 

LOGICAL*! SEGNOia) . 

COMMON/SEG/SECNO 

LFL 0*!8 

_CF ILEsFlLE 

5 ETSR !'38 

OFCOOe ( i , t oo i I BUF ( 2 ^7~*‘n13sFb’'”’^^ 
Format c la _ l■..l'. 11 . 1 .. ..1 n . ****-. — „ .. . 


?E.T_CAI r GOB T„iiUMBE05^Q^,lj 

. . . ..... .CONTI Nue . 

HDFLGmO 

, „ DO !! It*|»60„„..„...„„„ 

I iCATdJJJG 

If AT «0 

IPCAT^O 

CATM*0 

CATyeO 

.. . .. CATNWao....... 

.SEJLCL.A §s, NuMnfHoa..zFm 

, CONTINUE . 

DO III lvt.6G 

n icm«o . . 

IPCao 

,TCbO 

cw*o* 

CNW«0 _ 

CXsO ■ ’ 

Se FIELD NUMBERS TO ZERO 


CONTINUE 

DO 11? isi.fcO 

1F(I)*0 

TFsO 

‘FWso 

FNWkO _ 

'Fy*o 




iVE FIELU associated SUHCLASS 


0000 


on n<9 1 * 1 .“ 

00^1 

-.ItR-..-,. 

F4SCM)5inUFf T + Bl 

"OOP? 


DO 77 Isl.fc 

00^*3 

T7 

FIElOdlsIBUFf?*!) 

ooau 


OFC 06 E(S# 'Ol.TPUFdNn, IPF 


S7f 


* « ' 


tt. 


% .-■apr-y.- 






c. 

"cZ 

•*» 

c 

0 

C^' 

c 

c 

c 

c 

(I 

o 

o 

c 

1. 

(' 


.F0PTB*N IV-PLUS VC2-0a . 
FLOPeR.FTN • /7R|RL0Ct<S/WB 


ooas 

.0046 

0047 

.ooas 

0049 

jfosa- 


101 


FORMiTHS) 

K»0 

NbI 

EXFfGBO 
410NTIMUE 


15134139 


08-FE8-77, 


PACE„2. 


.0051. 

0052 

-0053. 

0054 

-0055, 

0056 

,0057. 

0056 

_0059. 

0060 

0061 

0062 

0063 

0064 
.0065. 
0066 
,0067. 


. 22 , 

C 

.. C OBTAIN, subclass. PIXEUXOUNTS .FOR. CURRENl-F lELO. 
C . 

. CALL , FP IPOdBUF (RJJ, CLASS, PI, PO) 

lF'’CLASSfn.Er). »W' ) FWSFW^PI 

-1 F ( L L A S 3 C’U . £n . In D-FN W 97 HMPJ. 

lF<CLASSn)'.EO,»X') FXsFXtPI. 

.IF(K'.En'.O) ..GO..T0.5.^ 

LKsij*(K-t) 

00 4 Il3l,a 


IF(CL*5S(II),NE’.CLIsmK+Iln 

.COMTINUE 

CO TO 7 

,K«KH 


GO TO 5 


0066 

0069 

0070 

0071 
00 72 
007.3 


6 

,1, 


LK»U.»(K»n 

,t)0 6 Il;!l,4 

Cl.IST(Lt< + in 
.CONUNUE 


TEST. f OR LAST. SUBCLASS. 


ir(K)c(F(K)+p 

..TFctr^pO.. 


CLASSni) 


I 


J KU, E 0 .iiP8UM-_-CO„LQ.JLO_ 

jl'jl I 

iFfN.Eo'.SETSin, 

MsN+ I 

fL»*>Lhl,rLP ... 


-CO„T.q J3_ 


0074 


CALI »A;OHEOnMUF,«,CFILE) 

■“0075”' 


. j • 

0076 


Rj*3 

0077 


CO TO 22 

0076 

40 

r 

CONTINUE 


0079 

OOBO 

ooai 

"0082 

0063 

"0084 

0065 

0066 
0087 


c compute field CLASS percentages 

’c' ' ' • 

. DsFLlUTflPF) . . ■ 

DO 9 TI«1»K 

1_ PTF(n) = (FLOAT(lFtIin/D)*100, 

PTF=(FLOAT(TF^/0)*100'. 

PWs(FLnATfFWj/Dl*lOO, . 

PNWx(FLOAT(FNW)/D) Aloo", 
pysfFi.nAT(Fy)/n)*ino, 
IFIHdFLG.EO. n GO TO 441 
WPITE (6,696) f SEGNOf I) , 1=1 , 4) 


0086 

0089 

696 

FOPmAt( II', 
HOFLr.s^ 

3^X, ‘ACCURACY REPORT • SEGMENT »,4A1J 

00.90 

0091 


KK=4«K 

WRITE (6.699) 

(CLISTn), l = r.5K) 


c 

c 


(■ 


FORT»*N IV-PLUS V02-0<l 
FLOPER.FTN /TP|0LOcKS/W9 


I5imi39. 


98-FE9-77.. 


.PAGE. 3, 


^ 0092 

1^93' 
. 0090 
G 0005 
J>J>9b. 

o 


0007 

_flooa 

0000 

0100 . 

0101 

.0102 

0103 


609 ?ORM*T(lHOi«lX, 'NAME»,9X. 'POP, WHEAT NONWHEAT 

... <t'RFS.' .2V, 'X-CAT'ifcX.StOAl.OXl/COOXiStOA.liOXnJ.^ 

WRITE(6,703) 

.001. CONTINUE ........... . .... ........... 

WPITFfO.TOO) FTELD,lPF,PW,PNW,PTF,PX,(PIFn),lsl,K) 
_l9iL_™.F0RJ A T ( 1 K- . 2 X . JLF.I ELD_±t.6 Ui.2 Xi Is I.2X.I.0 LF.5 . 1 . 5XIi.S < F S . 

*(6ox,sr<iAi,ttxn) 


TH'» 


UM)jL 


c 

,_LQ. 


UPDATE CLASS CLASS PIXEL COUNTS 


o 


C' 


c 


0100 

.0105 

0106 

J107. 

0106 

0109 


-t 

C 

c. 


00 10 Tst,K 
„l C ( 1 1 s I C CL) .tlF-IIX 

TCstc+TF 

J PC s I PC UPF .... 

CW=CWAFW 

CNWbcNW + FNW..- 

CXaCX+FX 


read next field data RECORD 

C ALL REDHED ( I *nUK , M j C F ILE ) 

if(cfile.gt'.ftle) go to 01 

IFnollF(n.NE'.'F') GO TO 

RJS23._,._- 

DO 02 1=1, « 


01 


oil 

10 02 

oil 

11 , . 

on 

12 01 

_.oj! 




c 


c 


c 


|F(EASc(I).NE.lP,UF(6^n) 

continue 

GO TO 3 

F.XFLC*! 

F. I L E C E 1LE„ : 


GO. TO , 03 


COMPUTE CLASS CLASS PERCENTAGES.. 


0110 

03 

baFLOATMl'O .... 

. . .« « . • . 1 .. 

0115 


Df) 00 1 = 1 ,K 


0116 


P T f. f T T a f Kl, ft A T ? r C n 1 1 ''0) A 1 00 . 


'0117 "" 

oo' 

CONTINUE 


one 


PTC=(FLOAT(TCT/D)*100. 

.... . .-»• ir. t ■ ■ 

0119 


PCWs(P(.OATCCW)/0)*100. 


0120 


PCNWsfPl nAT(CNWT/r»)*iOO, 


0121 


PCXs(PLOAT(CXT/0) AlOO. 

(pic(n,i3i»K) 

0122 


APTTEf6»70l) FASC. lnC,PC'W,PCNw,PTC#pCX. 

0123 

701 

EORMAT(tHO,» CLASS » , 0 A 1 , 5X , 1 5 , 2X » 0 ( F 5 , 1 

,5X),5(F5.1,3X)/ 



A(60X,5(uAl,oy)T) . ■ 

.... % ■ 

0120 

c 

WP1tE(6,703) 



C update CATFGORY CLASS counts 

c ■ 

' 

0125 


DO' 05' f=l,K 


0126 

05 

IC*Af tisTCAT t TjATCm 


0127 


TCATcTC*T*TC 


0126 


lPCiT=tPCAT+I0C 


0129 


CATKrP.ATWACW 

• 

0130 


CATMW = C4T"WfCNW 



0131 


CATYsCATXACX 


0132 


IP(F.kFlG.PG.I) go .to .. 

• i 

. 






•V 






F0RTP4N IV-PLUS V0?-0« - 1S|3<JI39 .. oa.FEa-77. 

FLDPEW.FTN /TR|RL0cKS7WR 


Tf'( fTsc fl ) .'neTi PuH 9 ) )” 

.GO TO, 2 .. .. ... ... 


TO 47 


.C..COMPUTE category CLASS PERCENTAGES 

C 

DsFLOAT(IPCA.T.) 

DO UtaK 



0133 

48 

CONTINUE 


. 0139 . .. 


. PTCATs(FL0AT{fC4T)/D)Al00.,. 

C: 

01^0 


PCATws(FL0AT(CATvJ)/U)*100, 


_0 1 k 


PCATNWsfELOATrCATNhJ/O)*10.0 

C; 

0142 


PCATXsfEL0.U(CAT)O/D)*l00, 

-0143 . .. 


WRITE(6,702) PASC ( 1 ) , TPCAT, 
*(PICATn>.l = l.K) 

Cl 

_0144„. 

.0145™... 

702 

FORMATdH , *CAT‘. ',1A1,9X» 
*(64X.5(«Al,4X))) 

...... WR1TE(6. 703).......^ 

1. 

0146 

‘'“ 703 “ 

formathho) 


GO TO I 
CONTINUE 
FILE--CFILE 

, RETUON... 

END 




J 





r * F0RTR*VriVrPUIs'V02-0«”'‘'“‘ ' ”'””|5l33Vo4 '““‘oa-FEfl^”"”’ ’"’''PAGE l 

^ -JTfXPQ,, FXN_^_„«V.mi fJLDCK S/WR : 


C< „OOOI SUBROUTINE FPTPO (FUO.CL ASS, PI | PO) 

0002 IMPLICIT INTErERCA-H) 

_ 0003_.„, logical*! FLOm.CLASSm,.. 

O' 0004 on 2 1 st, 4 

_0 0.0 5 C L A S5 ( I ) S F LO OX_. 

• 0006 ‘ 2 CONTINUE 

I ■ O .,0007... _ .• . OECOOE(5,100,FLD(9J)„.„P.t 

■0008. • too .F0SMiT(l5) 

. O004._,u,.. .V... : OECOOE(5,tOO,FLO(14))„„PQ 

OOtO ■ ■ - • RETURN 

•OOtt • EN D 





1SI35I12 


PACE 1 


FORTRAN IV-PLUS Vt)2-0« 
_CAP.RNULT.N „/.TP i BLDCKS/.WR. 


oe.FEB-77 


-.0001 „ 
0002 
. 0003 
0004 
_Q005_ 
0006 
.0007 - 
OOOR 
. 0009 , 
0010 
-OOIL.. 
0012 
.0013.. 
0014 
.0015 . 
0016 
-0017.. 
0016 
. 0019 . 
0020 
.0021 . 
0022 


. subroutine CAP9MT(IBUF,R,F1LE). 
!^'PUCIT INTPGER(A-Z) 

L0GICAL.1 IBUFfl) ^ - 

COM^‘ON/PC.‘JT/LINE,PAGE 
. COPMON/NSUB/NS.NCLS™. 

iFneuFm’.Eo, «vn go to i 

IFfIBUFdl'.EO. 'HI) GO TO 2 

IFdBUP(l).b'f), iRi) GO TO 3 

IFCIBUFf n.EQ,. 'Sn. GO. TO. 6 

TFf I«UF(1 )‘.EO, 'FI) GO TO 5 

_ IF.dBUF ( L);.E0.-JLEJ-)_C0-1L0_Z 

60 TO 7 

PAGEso 

LlNfs66 

.CALL KNT - . ... 

WRITE(6,2o3) (TBijF(I),T = 1»3) 

WR n E ( 6 , 9 9 ).™.,.— — 

WRITE(6,103) InUF(4) 

FOPMATfSX.Al),. . .. . .. 

WRTTF-(6, 10«) (TBUF(I),I=5»tO) 

F0f?HAT(Sy,6Al/) 

WRITE (6, foil inUFMl) 


V U C J 

0024 

99 

rn L 1 r. i.o # 1 J a nur i wm j- 

FOPMATTSX, IRECORO l|l) 

.0025 . . 


RETURN , 

0026 

2 

IFf 1BUFT4) Urtt '2') GO TO 21 

0027 


WRI?E(6.?0l ) 

0026 

201 

FOPl’iAT (5X» iRECnRO 2| 1 ) 

-0029 


wRnb(6.2o3) nouFni. i«i.3) 

0030 


W'R1TE(6, 104) 1PUF{4) 

0031 


W'RflF(6,203) (irilJF(I),l*'5,2|) . . .. 

0012 

203 

F 0 RHAT( 5 X, 30 A 1 /) 

0033 


WRITEC6,2o3) F6NO 

0034 


WRITE (6, 203) (IBUFfl) , 1=49»53) 

0035 


WRITE‘(6.203) TBUF(5'4) 

0036 


RETURN 

0037 

21 

WRITE(6,206) 

0036 

206 

format (5K, iPFf.nRO 3l 1/) 

0039 


WR1TE(6,203) nPIIFn),T“>#3) 

0040 


WRITE(6,104) inUF(ti) 

00«1 


'-RTTFf6,?03) I«UFf5) 

0042 


WRITE(6,2o'3) (TBIIF(I),I-6,10) 

0043 


WRTTE(6,?03) (TDUFCI)»Is)lf IS) 

0044 


R T T F ( 6 , 2 1 0 ) n W U F ( I ) , I -J 5 1 , 5 2 ) 

00<l5 

210 

format(sx#2ai) 

"0046 


return 

0047 

5 

continue 

' 0046 

301 

FORMATfll)' 

0009 


OErcnEf 1 .301 , TRUF(2) ) P5N 

0050 


IFfRSN ,C-T. 1) GO TO 31 

0051 


LINFS66 

0052 


CALL KMT 

0053 . 


TFfR.SN.Ll, ?,) ..yiRTTE(6|099)_ 

0054 


call knt 

0055 

999 

FOC“4Tf5V. iRECnGNinoM SP.GMENTi) 

0056 


IFfRSN. EO.O) RSNsl 


' 03 ' 


y 






Cl 

c 


FOPT«*N IV-PLU5 V02.0« .. 15l35lt2 . ..-OB-FEB-77. 

CAPPNT.FT>< /TR|BtOCFS/W«J 


.RACE. .2. 


0057 

0050, 

0059 


C*LL KNT 

WRITE(6,3o2) «SN, 
CALL HNT 


Ci 

. 0060 
0061 
8069 

302 

FORMATISX, 'RECORD*.# 12/) - ... - 

call knt 

ril 1 KMV 

, 

cr. 

0063 

0064 


WRITE(6,2o3) IRUF(2) 

C Al L KN j ... „„ , . ' 


f 

0065 

0066 


W R ! T E ( 6 ^ 2"o 3' ) (' I BUF ( I ) , 1 = 3 , 2 6 ) 

fAll KNT . 


0 

”0067 

0066 


WRiTEC6iP03) '(TBUFti). 1 = 27,40) 


' c 

i 

1 

0069 

. 0070 .... 
0071 

. 0072 . , 

0073 

0074 

.... 303 

'wrtTE{ 6,503) (TBUFn).! = 4i,42)#{I0UFn)rl=43#48) 
form At mx . 1 i • • ' 1 6 A 1 ) 


CALL knt 

NRTTFf6i?n3T f TfilIF f 1) # T = 49 » 55) , 


C 

777 

CALL knt 

format f 1 4) 


( 

0075 

0076 


Of.COOE(4,77 7.IRUF(56))NCLS 
NRnE(f,?03) ( TPUF ( I ) 1 1 = 56,59) 



0077 
. 0078 
0079 
0080.^ 


call knt 

WRIlFf6i?n3) (TRUF<I)iI = 6 o, 63 ), ,, . 


Cl' 


call knt • 

WBI.TE(6.2O3)_.(10UF.a,),.I.= 64#M) 



o 

o 

c 

L. 

c 


OOftll 

0062. 

0063 

0064 
0085 
0086., 
0067 
0066 

0089 

0090 

0091 

0092 
0093' 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
oim 
0102 
0103’ 

0104 

0105 

0106 
0107 
0106 
0109 


CAIL KNT 

WRnE(6,203) nBUFtl) » t''fc9,1.31. 

CALL KNT 

. write (6, 203) MBUF{I)| 1»74,78) 

CALL KWT 

„ WR t T E ( 6 , 20 3 )„_J AUf.Cm, 

CALL KNT 

WRITE (6, 203) (KHIFnif 

call wnt 

W R I T E ( 6 , 3 0 3 ) ( I H t J F (I ) » T " 1 0 0 » 1 0 1 ) * ( I B U M 1) » 1 « I . ( 2 * 1 0 7 ) .. 
STslOS 

00 304 ,jRlj8_ 

LafiT^u' 

call knt 


WRITE(6,2o 3) (T6UF(r)»iaSTA) 
SfaSTtR 
304 CONTINUE 
CAll. KNT . 

■ WRlTEt6,203) (I0UF(nilai48,l51) 
CALL knt 

WRTTE(6,?o 3) IPUF(t52) 
call knt . ....... 

WRITE(6,2o3) IBUF(153) 

’• STs154 ... 

V 00 305 jal,4 
L=9T*4 
CALL knt 

WRTTF(6,203) (TRUFm,t = ST,l.) 
STsST+5 

0110 305 CONTINUE 

0111' * 


0112 


STS174 

00 306 J=l«5 




w 


■~ri tfc-r ' . . « 




»e»»« 


»• ' t 


c 

c 

( 

( 

( 

( 

( 

( 

(. 

( 

L 

U 

(. 


FORTRAN IV-PLUS V02-0a 
CApBNT.FTN . /TR | RlOCKS/WB 


151351 12., ,„.,oe-pEB-77 


PACE.. 3 . 


0113 

.OIU .. . 

LI»ST43 

.. CALL KNT . ..... . 




0115 

.0116 .. . , 

KRITE(6,2o 3) (TBUP(niIaST»Ll) 

„ , STbI. 1 4 1 , 




0117 

„Oll8 

CALL KNT 

WRITEf^^aO"*! TRUFTST) 




0119 ■ 

.0120. ...... 

sTssT+1 ; 

.00 307 .J.Jsl .U 


» 


012j. 

- 0122 .Jv. v 

L2=ST49 

..‘CALL KNT. ........................... .. 




0123 

“ ‘WHITEIE.PO.Sl (T8UFm»I = ST,L2) 

■ 

* 



0125 

.0126. 

0127 

0128 
0129 

.0130. 


•307 

306 


31 

32 . 

33 

3« . 
35 

306 

311 

IT 


38 


39 


‘10 . 


'll 


U2 



.STsSTiB,..^ 

CONTINUE 

STsST*l 

CONTINUE 

CALL KNT 

call KNT 

.WR HE (6, 3001 

CALL KNT 

F 0 R A T ( / ,1 9 X i E L , 1 0 X T.» J .1 IX » A , p , , 1 0 X , *.P . 1 N T.O X / • P . OU . 

STIS2/J9 

LCOPsi/i , 

IFINcLS.Lr.UJ LOORsNCLS 

JEIRSN .E(3..,‘n..L00P.?.2 

DO 309 js|,LQQP 

UaSTlAS ... 

STPsl.14 1 

ST3S8T241 

L3ttST3>7 
5T/iJ=l,3il 


OKI 3 

L'llBSTUlAi 

0 1 '1 (1 

6Til2«:L'l 1 ♦ 1 

0l«5 

l.62sST'i;J4 1 

01 '16 

ST5»l."24l 

01 'IT 

LSsS75a2 

01 '16 

...... ST 6 = 1.5* 1 

■ 0l«9 

..... ‘ j - 

0150 

ST7BL6M 

0151 

L7»ST74'1 

0152 

CAIL KNt 

0153 

wr<TTE(6, 31 0) f 


* T 5 . 1 a 5 T " 1 . L " 1 


*S1l’6,L 6) , (IBUF 

01511 

310 format f5X,6Al 

0155 

5T1SL7+1 

0156 

309 CONTINUE 

"0157 

IF( RSN ;eO.' 

0158 

CALL KNT 

"0159 

return 

0160 

31 KPITF(6,30? 

0161 

CALL KNt 

0162 

call KNT 

0163 

NCLSsMCLS-ia 

01611 

IF fMrLS.L.E..O,.l 

0165 

ST1S3 

0166 

GO TO 311 


OLeBOB-QUAtny- 


'(ST?)ineUF(n»InST3*L3), 
» nOUFin , I«!ST^«L 5 ). UdUF 


n»uF( 

( I ) » 1 - 


,2Al,9X,3Ati UX,5Al, 10X»5A1) 


U) WRITE(6,203) (IBUFCl)i I“709, 720) 


RSN 



rpsrr 

T 




t-. »v» 




F0RTP4N IV.PLUS V02-0« 15|3SI 12 -.»~.0»-FEB-7.7 

caprnt.ftn /tribuocks/wb 


0167 

.0168. 

0169 

.0170 

0171 

„ 0172 „ 

0173 

.0170., 

0175 

0176 , 

0177 
. 0178 > 

0179 

.0160... 

0161 

.0162 

0163 

„0180.. 

0165 

0166., 

0167 

0160 

0169 

, 0190 . 

0191 

0192 

0195 
019« 

0193 

0196 
0197” 
0190 

0199 

0200 
0201 
0202 

■' 0205 ~ 

0200 

0205 

0206 
0207 


OECODE(l,5Pt,lRUF(2H RSN 
IFCRSN ,CT. 1) GO TO. 51- 
L1NES66 
CALL KNt .. 

!F(RSN',|.7'.a> «RITE(6,998) 

. C AL U, K N.T--,— 

F0P^<*T(5K, ‘FIELD OATA'1 

lFlMSN.EQ.O).i«SN>l — 

CALL KNT 

.wRITE(6,302)RSN 

CALL KNT 


_ C A LU- K M T 

WR1TE(6,203) ( IBUF C 1 ) , 1*3/ 8) 

CALL KNT - .. ... .. — 

WRITE(6,203) (T6UFn),T*'9,l4) 

CALL KNt . ..... 

WR1TF{6,201) IPUP(15) ‘ 

,-CAUL .,KNT.. ... .... — ....... 

WR1TK(6,20-3) (TBUF(n#l“16,20) 

’ FOPMirnar ^ 

■ OECODE(2»32«I0UF(21)) NS 

CALI- KNT . „ ... 

WRITE(6,2i‘ 3) (TUlJFm*I«21i22J 

_L00n«36„„.... ... — . — 

!F( NS ,Lt* 381 LOOpaNS 

..call KNT.,,. 

CALL KNT 

WRTTF(6,5X1. 

CALL KMT 

J F0RMaT(/# 2?K, tSiAtJ^jOX, !M,L,.V U 
ST1«23 

, DO Jsl ,,LOOP 

Ll»St H5 

ST?!-,tnj , . ....... .. 

ST3SST2M 

ST«sSf3tl „ : 

L0eST4+« 

ST3.“LO*l .. . . 

L5fiST5*« 

CALL KNT 

WRTTE(6,555 tlRUF(T),ls5Tl»Ll).l 
*L'n#(lP'Jf'flT»I=0T5.l31 
5 F0RHAT(5V»6A1,12 X,Ai, 11X,A1, 13X, 

STlsLS^-l ... .. . . 

i CONTINUE 

RETURN 

I NS s NS- 3 a'"’”' 

IF (NS. LE.O). return 

' LOOPsNS 
STls'» 

GO TO 36 
PFir.si 

CALL ST0ATA(TBLIF,R,FII.E,0FUG) 

1 RETURN_„] 

END 
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.0001 

0002 

0003. 

oooa 

_ oao 5 „ 

0006 

.0007 


rl ' . 
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0010 

001 s ._ 

0016 

.0017.... 

0018 

0019 

0020 
0021 . 
0022 


202 .. 

..203.. 

.200 

205. 


SUBROUTINE STONP(IBUF)., 
IHPLTCIT INTFGER(A»n 
... LOGICAL*! IBllFd).,,™™ 
COHMON /pcmt/linf»page 
XINES 66 . 


PACE I 




0009 

;2O0_. 

Cl 0010 • 

*. 

•0011 

■ 

. 0012 

201 

O „0013_„. 

’-9„._: 


CALL KNt 

IF r I BUF ( 2 ) ‘.EO,.'F..'J.„ CO„TO J»., 

WPITEI6,200) 

format (5X i » SUBCLASSES ! at 1ST IC.3, BECORO.t)„ 
GO TO 9 
_NRI.TE(6,R0l)r 


FORMATfSlf, »FTEL0 statistics RECORO') 
.CONTINUE 
wRItE(6.202) 


(IBIIF(N),Ns3,01 


F0»MAT(53<» 'PECCIPn 5E0, NO.. .l»2A.U„ 
WRlTEf6,203) neUF(N),N»5,7) 

FORMAt.IS'J, •,NO.. SUnCL asses... J_3A.| ) 

WRITrr6,200) (IflUf'(N)#N«fl.9) 
F0 HMAt( 5*» 'NO, SUBCLASS SETS **2AU, 
AniTF(6,205) (IBUF(N),N=J0,11) 


format (5X, 'NO, OFeCHANNELS. 
LINE»5 


| 2 A|K 




0020 

rn 

"r= lUMN 

fNO 
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C _.000t SUBROUTINE KNT — 

0002 implicit IMTEGER(A-Z) 

-.0003 COMMON/PCHT/HNE*PACE™ 

C! 0004 LINEsLINE+1 

_.0.0 OS T F CL 1 N E. .. L t— .60 1».G Q™T,0_10__ 

0006 PACEePAGSfl 

O .0007. LlNEsO — 

0000 ||<RTTE(6, 100) PAGE 
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FORTP'.f IV-PLUS V02-oa 

.FEOHEO.FJN „./TRieLOcKS/Wft. 


15I32I1S 


oe-FEB -77 


PACE t 


0001 

0002 
.0003 
oooa 
_ooos. 

0006 

.0007 

0006 

0009 

0010 

- 0011 . 

0012 

„001S 


subroutine BF0HE0(1BUF,R,FILE) .. 

IMRLTCTT INTEGEB(A-Z1 
INTErER*? T3TAT(2).IPRM(6)„ 
LOGICAL*! IBUF(l) 

OINENSION iHn.ATUl. 


12 

*c 

C«9. 

c 

x__ 


0016 


C 

,c 

13 

.C 

C16 

.CIS 

C 

cso 

c 

C5l 

C 


0015 

0016 
0017 
0016 

0019 

0020 
0021 
0022 
0023 
0020 

0025 

0026 
0027 
0026 
0020 

0030 

0031 

0032 

0033 
0036 

0035 

0036 

0037 
0036 
0039 
0060 
006J 
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II 


,101 

1 

lOO 


C0HM0.N/MF.SIIB/U1#V1,U2»V2 
OINENSTON IAf37) 

OAT* 70EV/2HXT/ 

. DATA M0EV/2HMT/- 
PEC0P03R 

F ( R EC 0 RD . G T . 0 3-_GO-T.O -1 0. 

CONTINUE 
FILE*0 - 
WHITE(5,U9) 

FORMATdOX,' TYPE M OR X FOR TAPE DEV1CE..C00EJ /) 
REA0(5»*>1) lA 

. .. T F (I A ( n KO . H i) CO.,J 0,.i 3 

iFflAin.EO.M'J CO TO 16 
GO TO 12 . .... 
lOEV^MOEV 

ilO TO 15 ...... 

10EV»X^^EV 

.. continue....... 

WMI TFfSfSO) 

FOPMATnOX,! TYPE TAPE UNIT.NUMdKR -„0 OR.ll/). 
PEAOfS.SI) lA 

F n R M A T ( 3 r A 2 1 .... „. , - .. ... 

1»>‘0 

.. „ CAU„,LNTF F ti, 1 A t7.6, IliNIl 

ILUN*9 

lUNT-O.............. - 

105»0 

rsN«o ... 

CALL ASNUIN(/LUN, IPEV, lUNT, 108) 

TFtlOs’.LT.O) GO TO 1. 

CALL GKTADRnPRM, IBUF) 

CAU, f5Iof*2600,lLUN,l»,I.8TAT#lPRM, ISR) 
TF{1SR‘.LT,0) go TO 2 
IPPM(2)*5f,00 ..... 

continue 

1 8 N = C 

00 It lal.iaoo 

IRURIDso , . ; .. ... 

RECOPOsOECnPO*! 

call OIOC'IOOO.ILUN, 1, , ISTATi IPRMf ISW 
TFUSw'.LT.O) GO to 3 
CALL WAITFRM.IOSI .... 

IFdOS.LT.O) GO TO 6 

CALL TOPRNTf TSTATfl ) , I fiT A T f 2 ) » P = COOE ) 

if(ercooe.lt'.o) go to S 

TF{pEC0RD.Fr' n RETURN 
PETlIPW 

FORMA 7 (/.tape .FOf t RECpPOSs '»16) , 

continue ' 

WRITFfb.lOO) 

FOPHATtIH 


) 


TOS 

ASLUN 


call OSWs 1,16) 


B=. 
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FORTRAN iV-PLaS V02-0U , ^ . 

REPHCO.FTN /TR|BLt>CK5/WR 


15132115 ^ . Od-m-77. 
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„0059., 

0060 

0061 

0062 


0002 

. OOO'J 

....... 2...... 

STOP 

continue . 





0000 

. 0005 . 

.,...200 

►R1TE(6.200) 

.formathh •» 

I SR 

REWIND. OSW « ».I6)__ 




0006 

-.00il7, 


CALL lOPRNT(TSTATn),ISTAT<2)) 

STOP,.,..,, 




OOOB 

0009 

0050 

..0051 

3 

300 

continue 

’ NPITE(6i300) 
. FORMAT! IH 
. . STOP, . 

• 

T CU 

• >1' »»«:-»»'»•¥ wrt-wsrr « 9 ’ ■ • «::a« iiMninwMKWM* 'j> Ml 3 IKS J 

READ 010 OSW s I,I6) 

m wr.M—v.Mi,: 



.0052 

-.0053. 

0 

continue 

t«RITE<6. 0(501,^ IDS _ . 


* 

. 

0050 

..0055 

.000 

formathh # ' 

-,„STOP . 

WAIT OSW s Mb) 




0056 
. 0057 

5 

continue 

. . IF(EPc00F.E0’ 

-to) FlLEsFlLEAl.— 




0050 


IFCERCODF.FO*. 

-to) RETURN 


, 



5OO 


„>'RlTEf6,S00) 
FORMATf iNO, • 

STQP.>_..^ 

END 
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C FORTRAN IV-PLUS V02*0« t5»32l27 08-F6B-77 

■ J0FRNT.fJN..___^IR,BL0CK5/WR__... 

C ,008t . ... «= subroutine lnPRNT(IW0,lWl,ERCOOE) 

0002 IHPUCTT INTrCER(A-Z) 

-0001-.. .. ..LOGICAL*! tWom 

(' C WRlTE(f»»100) (IW0CI),Ist»2)»IWl 

-.OOOR..-.— 100 format OHO, 21.5, 0104 

0005 ERCOOe«IWO(l) 

’ V „0006 RETURN 

0007 END 
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